home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 11, No. 11 (1990-11)(MindCraft Publishing)(Side A).zip / Nibble Volume 11, No. 11 (1990-11)(MindCraft Publishing)(Side A).po / EFFECT.MAKER.bas < prev    next >
BASIC Source File  |  1996-12-24  |  403b  |  2 lines
  1. 1  DATA 173,33,3,170,202,240,3,76,4,3,173,46,192,41,15,170,234,234,234,141,34,192,44,0,192,16,229,169,240,141,34,192,96,138,147,157,165,173,182,187,247: FOR I = 768 TO 768 +32: READ A: POKE I,A: NEXT : FOR I = 1 TO 8: READ X(I): NEXT :R =  INT( RND(1) *8) +1: POKE 801,X(R)
  2. 2  HOME : PRINT "EFFECT.MAKER": PRINT "By Marco Tabini": PRINT : PRINT : PRINT "Let's see this effect : it's great!!!!": CALL 768